home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / pd-software / mui_3.1 / developer / oberon / txt / muidirlist.mod < prev    next >
Text File  |  1996-01-19  |  1KB  |  51 lines
  1. MODULE MUIDirlist;
  2.  
  3. (* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
  4.  
  5. (* This module is generated by "GenMuiO" © 1995 by Albert Weinert *)
  6.  
  7. IMPORT
  8.   clf := Classface,
  9.   e := Exec,
  10.   m := Mui,
  11.   RootClass,
  12.   SuperClass := MUIList,
  13.   I := Intuition;
  14.  
  15. CONST
  16.   name *= m.cDirlist;
  17.  
  18. TYPE
  19.   Class     *= UNTRACED POINTER TO ClassDesc;
  20.   ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
  21.  
  22. VAR
  23.   class * : I.IClassPtr;
  24.  
  25.    PROCEDURE ( VAR c : ClassDesc ) mReRead*( VAR msg : m.pDirlistReRead ):e.APTR;
  26.      BEGIN
  27.        msg.msg.methodID := m.mDirlistReRead;
  28.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  29.      END mReRead;
  30.  
  31.   PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
  32.     VAR c : Class;
  33.     BEGIN
  34.       IF msg.methodID # I.new THEN
  35.         c := RootClass.BoopsiToObj( cl, obj )(Class);
  36.       END;
  37.  
  38.       CASE msg.methodID OF
  39.         | m.mDirlistReRead            : RETURN c.mReRead( msg^(m.pDirlistReRead) );
  40.       ELSE
  41.         RETURN SuperClass.Dispatch( cl, obj, msg );
  42.       END;
  43.     END Dispatch;
  44.  
  45. BEGIN
  46.   class := m.GetClass( name );
  47.   IF class = NIL THEN HALT( 205 ) END; (* Error : Object not Found *)
  48. CLOSE
  49.   IF class # NIL THEN m.FreeClass( class ) END;
  50. END MUIDirlist.
  51.